// ****************************************************************
//
// Logic 9: CAVE
//
// ****************************************************************


#include "defines.txt"
#define pearl  o10
#define torch  o11
#define torch2 o12

if (new_room) {
  load.pic(room_no);
  draw.pic(room_no);
  discard.pic(room_no);
  set.horizon(61);

  animate.obj(o12);
  load.view(22);
  set.view(o12,22);
  position(o12,44,52);
  set.priority(o12,6);
  ignore.objs(o12);
  ignore.horizon(o12);
  ignore.blocks(o12);
  draw(o12);

  animate.obj(o11);
  load.view(22);
  set.view(o11,22);
  position(o11,91,52);
  set.priority(o11,6);
  ignore.objs(o11);
  ignore.horizon(o11);
  ignore.blocks(o11);
  draw(o11);


  if(!has("pearl")){
  }
  if(has("green coins")) {
  }
  else {
  if(!has("pearl")) {
    animate.obj(o10);
    load.view(19);
    set.view(o10,19);
    set.loop(o10,0);
    set.cel(o10,0);
    position(o10,75,84);
    set.priority(o10,10);
    ignore.objs(o10);
    draw(o10);
   }
  }

  //init

  if (prev_room_no == 5){
    position(o0, 79, 161);
  }
  if (prev_room_no == 10){
    position(o0, 71, 64);
  }
  draw(o0);
  show.pic();
}
if (ego_edge_code == horizon_edge){
  //horizon exit
  new.room(10);
}

if (ego_edge_code == bottom_edge){
  //bottom exit
  new.room(5);
}
if (f2 && unknown_word_no == 0 && !input_parsed){
  if (said("look")){
    print("You see a cave with a pearl on a pillow in the middle of the room on a rock.");
  }
}

if (said("get","pearl")) {
  if (posn(o0,45,68,107,131)) {
    if (!has("pearl")) {
      get("pearl");
      load.sound(73);
      sound(73,f16);
      erase(o10);
      print("You take the magnificant pearl.");
      v3 += 3;
    }
    else {
      print("You already have it.");
    }
  }
  else {
    print("Get closer.");
  }
}

return();